glm(a[,"i_1"]~ii1,family=binomial)
summary(glm(a[,"i_1"]~ii1,family=binomial))
summary(glm(a[,"i_1"]~ii2,family=binomial))
summary(glm(a[,"i_1"]~I(ii1+ii2),family=binomial))
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm focus/calc.model.R')
ff.model.list
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm focus/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm focus/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm focus/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm focus/calc.model.R')
model.summaru
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm focus/calc.model.R')
model.summary
copy(model.summary,col.names=TRUE)
summary(ans4)
summary(ans6)
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
copy(model.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
copy(model.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/analy.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
copy(model.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
data[,"chat_pay"]
data.base[,"chat_invest"]
data.base[,"chat_pay"]
sum(data.base[,"chat_pay"])
a<-data.base[,c("chat_pay","p_1","p_2")]
a
pp<-ifelse(is.na(a[,2]),a[,3],a[,2])
pp
a<-cbind(a[,1],pp)
a
a<-subset(a,!is.na(a[,2]))
a
dim(a)
T(a)
t(a)
subset(a,a[,1]==1)
mean(a[,1])
mean(data.base[,"chat_pay"])
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
copy(model.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
copy(model.summary,col.names=TRUE)
y.pay
ans6
summary(ans6)
y.pay[x.pay==0]
summary(y.pay[x.pay==0])
summary(y.pay[x.pay==1])
summary(ans6)
a1<-y.pay[x.pay==0]
a2<-y.pay[x.pay==1]
wilcox.test(a1,a2)
a1
a1<-na.omit(a1)
a2<-na.omit(a2)
a1
sum(a1)
length(a1)
sum(a2)
length(a2)
expt.file.name()
get.variable.names(1)
a<-get.data(1,"Treatment")
levels(as.factor(a))
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans)
ans<-lm(invest~Period+Treatment+I(as.factor(Group.ID)),data)
summary(ans)
mean(invest[data[,"Treatment"]=="Base",])
mean(invest[data[,"Treatment"]=="Base"])
mean(invest[data[,"Treatment"]=="Should_invest"])
ans<-lm(invest~Period+Treatment,data)
summary(ans)
summary(ans2)
ans2<-lmer(invest~Treatment+(1|Group.ID),data)
summary(ans2)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summmary(ans2)
summary(ans2)
plot(data[,"Period"],data[,"invest"])
summary(data[,"Period"])
summary(data[1:15,"invest"])
summary(subset(data[,"invest"],data[,"Period"]<=15))
summary(subset(data[,"invest"],data[,"Period"]>15))
summmary(lm(invest~Period,data))
summary(lm(invest~Period,data))
summary(lm(invest~Period*Treatment,data))
summary(lmer(invest~Period*Treatment+(1|GroupID),data))
summary(lmer(invest~Period*Treatment+(1|Group.ID),data))
ans<-lm(invest~Period*Treatment+I(as.factor(Group.ID)),data)
summary(ans)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans2)
summary(ans3)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans3)
summary(ans2)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans4)
summary(ans3)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans4)
summary(ans3)
summary(ans2)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
acc
qr1.new
pi.m
u.tbl
gamma
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
u.loss
inv.cost
pp
par.behavior
par.setting
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
par.setting
chat.invest
chat.payment
data[1,]
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
result.summary
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
data[1,]
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
ans4
summary(ans4)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans4)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans3)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans4)
data<-read.file.index(1)
levels(as.factor(data[,"Treatment"]))
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
help("glmer")
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans4)
summary(ans5)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans4)
summary(ans5)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans4)
summary(ans5)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans5)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
data[1:5,]
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
data[1,]
levels(as.factor(data[,"Treatment"]))
data<-read.file.index(1)
levels(as.factor(data[,"Treatment"]))
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
2346/60
copy(result.summary,col.names=TRUE)
data[,"treat"]
levels(as.factor(data[,"Treatment"]))
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summmary
model.summary
i1<-data.base[,"i_1"]
i2<-data.base[,"i_2"]
mean(i1)
mean(i2)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
save.image()
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summmary
model.summary
330*0.123
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
ms[[1]]
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
copy(result.summary,col.names=TRUE)
data[1,]
data[2,]
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/analy.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
data[1:10,]
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
data[1:10,]
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
pay
summary(ans5)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
gamma1
gamma2
qr1.new
pi1
pi2
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
u.m1
par.setting
final.par
index
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/analy.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
data[,"Data1"]
sum(is.na(data[,"Data1"]))
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
e0
par.behavior
par.setting
data.base
data.base
treat
dim(data)
levels(as.factor(data[,"Treatmenet"]))
levels(as.factor(data[,"Treatment"]))
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
copy(result.summary,col.names=TRUE)
model.summary
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
u.loss
u.noloss
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
qr1
u.tbl
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
warnings()
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
li1
pi1
pi2
qr1
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
u.loss
u.noloss
par.r
u.risk(e0-rr-inv*inv.cost-penalty,par.r)
u.risk(-inv*inv.cost,par.r)
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
u.loss
u.noloss
par.r
gamma.i
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
model.summary
copy(result.summary,col.names=TRUE)
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
model.summary
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
model.summary
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
model.summary
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
model.summary
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
model.summary
summary(c(data[,"i_1"],data[,"i_"])
""
summary(c(data[,"i_1"],data[,"i_2"])
)
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
model.summary
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
u.m1
u.m2
par.setting
final.par
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
u.noloss
u.loss
qra
ps
e0
rr
qr
plot(qr)
gamma.a
gamma.r
model.summary
data[1:5,]
data[,"attack_decision"]
data[,"attack.decision"]
aa<-data[,"attack.decision"]
aa
sum(aa==1)
sum(aa==2)
sum(aa==0)
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
qra
inv.list
Q
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
pp
ua
gamma.a
prob.pay(qr[,1],inv,par.setting=par.setting,par.behavior=par.behavior)
qr
qr<-qre.r(inv,par.setting=par.setting,par.behavior=par.behavior)
qr
pp<-prob.pay(qr[,1],inv,par.setting=par.setting,par.behavior=par.behavior)
pp
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
model.summary
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
model.summary
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
att.summary
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
inv.summary
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
inv.summary
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
model.summary
inv.summary
sqrt(0.6)
sqrt(0.12)
0.77*0.34
cor(i1,i2)
glm(i1~i2,family=binomial)
summary(glm(i1~i2,family=binomial))
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
model.summary
summary(glm(i1~i2,family=binomial))
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
traceback()
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
model.summary
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
copy(result.summary,col.names=TRUE)
inv.summary
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
inv.summary
copy(inv.summary,col.names=TRUE)
data.base[1:5,]
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
install.packages("lme4")
install.packages("lmerTest")
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
data.base[1:5,]
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
summary(ans.i1)
summary(ans.i2)
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
inv.summary
summary(ans.i1)
summary(ans.i2)
data.base[,"Period"]
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
summary(ans.i1)
summary(ans.i2)
copy(inv.summary,col.names=TRUE)
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
ans.i1
summary(ans.i1)
summary(ans.i2)
copy(summary(ans.i1)$coefficients,col.names=TRUE,row.names=TRUE)
copy(summary(ans.i2)$coefficients,col.names=TRUE,row.names=TRUE)
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
copy(summary(ans.i1)$coefficients,col.names=TRUE,row.names=TRUE)
copy(summary(ans.i2)$coefficients,col.names=TRUE,row.names=TRUE)
help("source")
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 2001 lag model final candidate/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 2001 lag model final candidate/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 2001 lag model final candidate/calc.model.R')
u.loss
u.noloss
final.par
par.setting
par.behavior
inv.lag
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 2001 lag model final candidate/calc.model.R')
model.summary
copy(result.summary,col.names=TRUE)
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 2001 lag model final candidate/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 2001 lag model final candidate sim/calc.QRE.sim.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 2001 lag model final candidate sim/calc.QRE.sim.R')
qra00
inv.p
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 2001 lag model final candidate sim/calc.QRE.sim.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 2001 lag model final candidate sim/calc.QRE.sim.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 2001 lag model final candidate sim/calc.QRE.sim.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 2001 lag model final candidate sim/calc.QRE.sim.penalty.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 2001 lag model final candidate sim/calc.QRE.sim.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 2001 lag model final candidate sim/calc.QRE.sim.R')
18*12
model.summary
